home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1008_Icon < prev    next >
Encoding:
Text File  |  1990-03-23  |  504 b   |  27 lines
  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CIconPane;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IViewRes ('IcnP', %paneID%, enclosure, supervisor);
  8. %case itemNr%
  9.     %DefineItem%
  10. %case dialog field%
  11. %case init field%
  12. %case auxiliary%
  13. %case filter%
  14. %case set%
  15. %case hit%
  16.     %if enabled%
  17.         %if not lastInGroup%
  18.             %itemname%,
  19.         %else%
  20.             %itemname%: begin
  21.                     DoIconRadio (%firstRadio%, itemNr, %fieldname%);
  22.                     x%fieldname% := %fieldname%;    {for Filter proc}
  23.                 end;
  24.         %end if%
  25.     %end if%
  26. %case finish%
  27.